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I. INTROniXTION 



rsAU rnntainf^ an associative data system called LEAP. It Is patterned 
after the LEAP system i rnp I oniented at LINCOLN LABORATORY by ROVNER and 
FLLDflAN. Features contained in our LEAP but not in the Lincoln LEAP 
include a data-type called list, and' "matching" procedures to be 
deycrlbed Lieloi-i. 

This document is intended to serve as a companion volume to the SAIL 
manual and hopefully will be easier to understand than the manual as 
liere i-je can afford expound more on the various constructs and we also 

liave the s|:)ace to include more examples. 

Other documents which may be of interest to the LEAP user include 
LEAP.l^RUELEP, JRL] , which^ is a general guide to the leap runtime 
environment; LEAP. TXT [LEP, JRL] , which is a detailed guide to the LEAP 
parts of the SAIL compiler and the SAIL runtime system; and of course 
tlie SAIL manual . 
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iiic. i:i"i;^, ic ontil ies i-il-i 1 ch LEAP manipulates are called "items". An item 
i r, -, irnil;)i- in nionij respects to a LISP atom. It optionally has a 
|-)r intnaiiic and a datum. A datum is a scalar or an array of any SAIL 
<: i a I a - 1 ii |;) e o t h o i- t li a n types "item" and " i t e m v a r " . An i t e m v a r is simply 
a variable iihoye values are items. 

A:-, an nxamr)lri of an item we may consider the following declaration. 

REAL I TEH RITEM; 

Tliis denlarns an item named RI TEH whose datum is a scalar real 

variable. 

In addition to declarations of items at compi I e-t ime, we may 
d!jtiarnical ly create new items tay calling the function NEW. This 
func:tion iiiai.) eithei- have no arguments, (in which case the created 
item I'lac-i no' datum) ; or it may have a single argument which is either 
an expression or an array. This argument is copied and the copy 
l:)eeurnes Uie value of the datum of the new item. We may of course 
later change the value of the datum or an element of the datum (if 
ti-ifi datum in an array) by using standard algolic assignments. The 
data-ti.jpe of the datum of the new item is the data-type of the 
argument to NEW. Tluis NEW(l) would create a new integer item whose 
da tuiii was i n i t i a I I y g i ven the va I ue 1 . 

Items may be assigned to itemvars by standard SAIL assignment 

statements and assignment expressions. 

i tmvr<~ i tmexpr; 

Items tl-iemselves are considered to be constants and thus may not 
appear on the left hand side of an assignment statement or 

QKijresG i on. 
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II. DATUnS 



Assoc la tod i.iitl-i most items are datunis which may be treated as 
ntanclai-d SAIL variables. To refer to the datum of an item we use the 
oporator i]ATUl1. 

Example: 

INTEGER ITEfl II; 

INTEGER I; 
LI: DATUnCin^B; 
L2: I ^ DATUn(II)+l; 

At 1.1 the datum of the item II is given the value "5", At L2, the 
value of the datum of II is used in an arithmetic assignment 
-.tatement iililch uould cause the variable I to receive the value 6. 

riatiirn takns as its argument a typed item expression: Typed item 

oxproGGions include: 

1. rupee! items and i temvars (declared with their type followed 

l:)i| ITEM as In: 

INTEGER I TEN JJ; 

INTEGER ARRAY I TEN XII: 51; 

INTEGER ITENVAR ARRAY Y[l:5]; 

INTEGER ARRAY ITENVAR ARRAY Z[l:5]; 

INTEGER ARRAY ITENVAR Q; 

Note the distinctions between the later four declarations. 
X is declared to be a single item whose datum is an integer 
ai-r-aij containing five elements. Y is declared to be an array 
nf live 1 temvars, each of which is claimed to contain an 
item whose datum is a scalar integer. Z is declared to be an 
arrau of five i temvars whose values are claimed to be items 
iii ill" datuins which are integer arrays. Q is an i temvar which 
su|:>|:)osedlu contains an item whose datum in an integer array. 
As is slioi-in above, we do not specify the dimensions of the 
tl-ie array which is the datum of an array t temvar. Thus for 
example, each element of Z could contain items whose datums 
were ai-rays of different dimensions. However for array items 
we must declare the dimension because otherwise the compiler 
would not know how much space to allocate for the array. Ue 
place tl'ie dimensions of the array following the item name. 
Thit: is somewhat confusing as it appear that we have an 
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array of Items rather than a single item whose datum is an 
arraLj. SAIL has solved this problem in a very arbitrary way 
by outlawing declarations of arrays of items. One can get 
the effect ^of arrays of items by declaring i temvar arrays 
and then assigning "NEW" items to the individual elements. 

2. Typed i temvar function calls: 

STRING ITEnVAR PROCEDURE SNEWCSTRING X); 
RETURN (NEW (X)); 
Thus we may talk of DATUM(SNEW("anystr ing") ) 

3. Asciignment expressions whose left hand side is a typed 

itc,mvar. 



Tl-iR type of the datum variable is the type of its item expression. 
Thus/ the datum of an integer item expression is treated as an 
intecicr variable, the datum of a real array item expression is 

tre^ated as a real array and so forth. 

MflTF: no clinck is actually made that the item is of the claimed type. 
Tl'ius, for- BxampI 6' di sastrous things may happen if one uses DATUM on a 
tstr^inq i tcmvai" in which an integer item has been stored. Therefore 
llie user should be careful about storing typed items into different 
type itemvars. Wl'ien in doubt about the actual type an item expression 
he. should use the function TYPEIT to verify that the item is of the 
required typo. TYPEIT is a predeclared integer function. 

INTEGER PROCEDURE TYPEIT (I TEhVAR X); 
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Thr- vnlunfi i-ritui-ned Ijij TYPEIT are: 

- ciclctecl or newer allocated 1 - item has no datum. 

2 - liracketed triple (no datum) 3 - string item 
4 - real i tern 5 - Integer i tern 
R " net i tern 7 - I ist item 

3 " procedure item 3 - process item 
10 - event-ti.ipe item 11 - context item 

12 - i-efitm item 16 - string array item' 

17 - real an-ay item 18 - integer array item 

19 - Get arrag'^item 20 - list array item 

:.:q - context array item 25 - invalid type (error in LEAP) 

Tl-iose codes not mentioned (13-15,21-23) are also invalid and should 

Ij e c: n s i r j e r e d e r r' o n e o u s . 
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IV. ^^ETS 



A liJtvi. is an LitiorrJei-ed collection of unique items. All set variables 
nrn i n i t i .^ li zod to PHI, the empty set consisting of no items. Set 
varialTics receive values by assignment or by placing individual items 

i n i: In f in b y P U T s t a t e iii e fn t s . 



RPT PXPRPSSiriNR: 

J. L><|;> licit Set -■ A sequence of item expressions which make up 
Hie set surrounded by set brackets. 
E. G. 

a) [ 1 teiiil , i tem2, i temS) 
I:)) { i terii2, i teml, i temSI 
c) i i teiii2, i teiii2, 1 tem2, i temS) 

Nnte: Since sets are unordered and a given item may appear at 
rnont once within a set, set expressions a,b,and c above all 

represent the same set. 

2. PHI - the empty set. The set consisting of no elements at 
all is tlie empty set which may be written as either 

(i or PHI 

3. Set Union - written SETl U SET2. 

Tlie resultant set contains all items which are elements of 
eitl'ier- SETl or SET2 or both, 
E.G. 
i i teml, i tem2} U (i tem2, i temSl =-- (i teml, i tem2, i temS) 

4. Set Intersection - written SETl (1 SET2 
The resultant set contains all items which are elements of 
botl-i SETl and SET2. 
E. G. 

i i teml , i tem2, i temSI fl { i teml , i tem2, i tem4} = { i teml , I tem2} 
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5, Set Subtraction - written SETl - SET2 

The resultant set contains all items which are elements of 

SETl but not elements of SET2. 

E. G. 

i i tarnl , i tem2, i tem3} - { i tem2, i tem4, i temB) = { i teml , i temS) 

'UT and REMOVE 



1, To place a single item into a set variable we may use the PUT 

statement: 

PUT i temexjDr IN setvar; 

This has the identical effect as: 

setvar <- setvar U (itemexpr); 

llouovcr, as the assignment causes the set to be copied, and 
tlic PUT doesn't the PUT statement will take less time and 

space to execute. 

2, To i-omovt-! a single item from a set variable we may use the 

RlMUVE statement 

REMOVE itemexpr FROM setvar; 

This |-i,';is tl'ie same effect as: 

setvar ^ setvar - (itemexpr}; 

Again, as the REMOVE statement avoids copying the set, it is 
more efficient than the equivalent assignment statement. 



SET Roolnans 

1 , Sh t. tiieijiliershii p 

i temexpr e setexpr 
TRUE onlu if the item is an element of the set, 

7 
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2. Set cqua I i ty 

setexprl = setexpr2 

TRUE only if each item in setexprl is in setexpr2 and vice 

versa . 

3. Set i nequa I i ty 

setexprl ^ setexprZ 

TRUE if setexprl or setexpr2 contains an i tein not found in 

the other. 
Equivalent to 

-'(setexprl = setexpr2) 

4. Proper containiiient 

Fir>tex|:)rl < set6xpr2 or setexpr2 < setexprl 

TRUE if every item in setexprl is also in setexpr2, but 
setexprl -^ setexpr2 Equivalent to5 ((setexprl fl setexpr2) = 
setexprl) a (setexprl ?i setexpr2) 

5. Containment 

setexprl < setexpr2 or setexpr2. > setexprl 

TRUE if every item in setexprl in also in setexpr2. 
Equivalent to 

(setexprl = setexpr2) v (setexprl < setexpr2) 
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\:Q\\ i.OP anri l.CNGThl 



COP (setrixpr) - returns an item Nhich is an element of the 
rnt. As sets arc unordered you do not know which element of 
Uie vet i-illi be returned It is useful most often when we know 
I lie i..et lias but a single element in which case it will return 

tha [ i teMii. 

LOP (cetvar) - same as COP except argument must be a set 
variable and the item returned is also removed from that set. 
It is logically equivalent to the following procedure; 

ITEMVAR PROCEDURE LOP (REFERENCE SET Y) ; 
BEGIN ITEnVAR Q; 

Q .- COPIY); 

REMOVE Q FROn Y; 

RETURN (Q) 



LOP is often valuable if we wish some operation to be 
|;)er formed on each item of a set. Consider the example below 
iil'iere we wish the datums of all integer items contained in a 
GC'.t SETI to be incremented by one. Assume that we have 
clGclai-cd IITMVR to be an integer i temvar and TSET to be a set 
variable which we will use as temporaries. 

TSET <- SETI; "Copy set of interest into temporary" 
UHILE (TSET ^ PHI) DO "loop while TSET has elements" 
BEGIN innVR <■- LOP(TSET); "remove an element from TSET" 
IF TYPEITdlTNVR) = 5 THEN "check if really integer" 
DATUn(IITNVR) ^ DATUM ( II TflVR) + 1; 
END; 

NOTE: LOP is compiled into code other than a straightforward 
procedure call and thus like many other functionals cannot 
ap|;iear as a statement but only as part of an expression. Thus 
if lie just wanted to remove an arbitrary set element and 
throw if away we would have to say: 

DMY f- LOP(SETVAR); 

where DMY is an i temvar whose contents we do not care about, 
i-atl-ier than the simpler; ■ 

LOP(SETVAR); 
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LENGTH (setcxpr) - returns the number of items within a set. 
LogicalJLi equivalent to following procedure: 

INTEGER PROCEDURE LENGTH (SET Y) ; 
BEGIN "LENGTH" 

INTEGER COUNT; ITEMVAR DUMMY; 
COUNT ^0; 
WHILE (Y -A PHI) DO 
BEGIN 

DUMMY «- LOP (Y) ; "remove an element from the set" 
COUNT <- COUNT +1; "step count of elements" 
END; 
RETURN (COUNT); 
END "LENGTH"; 

Thie actual implementation of LENGTH is much more efficient 
Uian tha above procedure (usually taking only two machine 
instructions). The most efficient way of determining if a 
gi vnn set is empty is to see if the LENGTH of that set is 
zero. This is actually much faster that comparing the set and 
I 'MI for equa 1 i ty. 



10 
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V. LISTS 



A list is an ordered sequence of items (not necessarily distinct). 
l-ifit variables are initialized to NIL the empty list containing no 
i tciiiG. List variables receive values by assignment or by placing 
individual items in them by PUT statements. 



1... 1ST Ext:)ress i ons 



t'xplicit List - written as the sequence of items (separated 
by commas) all surrounded by list brackets "U }}". SKIP 1 

a. n 1 teml , i tem2, i temSl 1 

b. ! { 1 tem2, i teml, 1 tem3 1 1 

c. ii ltem2, itemZ, iteml, item 3 }} 

Nolo that since the order and number of times each item 
appears is important for each lists, the expressions a, b, 
and c above all represent different list expressions. 

NOTE: lie may represent NIL, the empty list, by {{ }} 

Concatenation - written listl & Iist2 This forms a new list 
containing all the items in listl followed by all the items 

i n I i st2. 
E. G. 

( i i teml , i tem2, i tem3, } ) & { { i tem3, i tem4, i temS } } 

{ i i teml , i tem2, i tem3, i tem3, i tem4, i temS) ) 



I { i teml , i tem2l ) & { { i tern 4, i tem4, i temBl ) 

( { i teml , i tem2, i tem4, i tem4, i temS) } 

A. SuliliBts - There are two forms of sub list expressions 

0, llstGxpr [11 TO 12] - the first integer expression (il) 

stands for the position of the first element to be taken 

and the second (12) stands for the position of the last 

oloment to be taken. 
E. G. 

{ ( 1 tenia, 1 temb, 1 temc, 1 temd) H2 TO 3] = { { i temb, i temc) } 

11 
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{ { 1 tenia, i teiiib, i teiiic, i tenicj} } [3 TO 3] = lii tetnc) } 

llstexpr [il FOR 12] - the first integer expression (il) 

stands for the position of the first element to be taken 

and the second (12) stands for the number of elements to 

l:)e taken. E. G. 

{ (1 tenia, 1 temb, i temc, i tenid) } [2 FOR 3] = { (i temb, i temc, i temd) } 
f { 1 tcma, 1 temb, 1 temc, 1 temdl } [3 FOR 1] = { (i temc) } 
( i 1 tema, 1 temb, J temc, 1 temd) n3 FOR 0] = {{)}= NIL 



LIST Select or 3 

It is often useful to think of a list as an untyped i temvar array 
II I til a single dimension with lower bound 1 and upper bound variable. 

1. Expression selector 

llstexpr [ill - returns the item which is the il element of 
the list. If i,.,l is less than or greater than the number of 
elements of tfie list an error is signaled. 
E. G. 

{ { 1 tema, 1 temb, i temc) 1 111 = i tema 

fdtemb, itemc, 1 temd) } [21 = itemc 

Note the difference between I 1 stexpr Ml] and listexprlll FOR 
1], The former returns an item and the later returns a list 

con t a i n i ng a s i ng I e 1 tern . 

2. Replacement selector 

I i stvar [11] ^ i temexpr; 

T|-)ir; removes the 11 element of the list and replaces it with 
the i temexpr 11 must be between 1 and .the number of elements 
1 n tl"ie list + 1. 
E. G. 

LISTl ^ {{ITEni)); 

LISTHl] <■ ITEri2; "NOW LISTl = {{ITEri2n" 
LIST1[2] ^ ITEMS; "NOW LISTl = { (I TEn2, ITEMS}} " 
LISTHl] ^LIST1[2]; "NOW LISTl = { (ITEMS, ITEMS) } " 



12 
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ASSOCIATIONS 



Tl'M^i ns'^ioc i at i VR power of LEAP comes from the use of associations, 
Til no called triples or associative triples. A triple is a 3-tuple of 

i teiir:. . I4e. iii-Ite a triple as: 

A®0=V 

iiJi'M-^:- A, 0, Hnrl V arc items or item expressions. We call the first 
coiiirioiK.'nt of tho triple (A aioove) the "attribute"; the second 
(:C)hi|:iorient (0 dbove) , the "object"; and the third component (V above), 
ihn "value". Trijiles are kept in the "associative store". Triples are 
1 n'-.-.i-teri into the associative store by HAKE statements and removed 
fi-oiii tl-io aGsociative store by ERASE statements. 



A flAKE Btateiiient Is of the form: 

MAKE i tmexprl®i tmexpr2 H^itemexprS; 

If the triiiile already exists in the associative store, the statement 
does iiotriing, otherwise the triple is inserted into the store. 



[iRASE 



To remove a triple from the associative store we execute an ERASE 

btaleiiienl: 

ERASE i tmexprl«>i tmexpr2s i temexprS; 

If the tri|;)le is not in the associative store, the statement does 
notl-ilng, otherwise the triple is removed from the associative store. 
Ue often ijisli to erase all the triples which have specific items as 1 
or 2 of tl'ieir components but we don't care about the remaining 
com|:)onents. To do this we may use the token ANY to stand for the 
unspecified components. 



13 
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C. G. to erase all associations with i tem2 as their object we could 
u s e : 

ERASE ANY®itein25ANY; 

to oraGc all associations with 1 teiiil as their attribute and i teni2 as 
t lie 1 1 • ol.T i ec t lie i-iou I d use : 

ERASE iteiiiUitem2 = ANY; 

ANY may I:)g used In 0, 1, 2, or all 3 positions in the triple. Thus, 

ERASE ANY®ANYhANY; 

liould get i- 1 d of all associations in the UNIVERSE. 



14 
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ASSOCIATIVE DOOLEANS 



Ue rnay detenu Ine if a given triple exists by using the boolean 

ex I") I" ess i on; 

i tniexpl €) i tmexp2 = i tiiiexpS 

1 ih i ch II i I I eva I uato to TRUE i f the tr i p I e conta i n i ng ■ the i tems ex i sts 
in the associative store. As with ERASE 1 or 2 of the components may 
be ANY. Tl-iUG, 

ANY ® ANY H iteiiil 

nil! yieic] tlie value TRUE if any triple in the associative store 
contains i ternl as its value component. 



DEIHVED SETS 

In order to use the associative nature of triples uie must have ways 
of finding triples which have certain specified components, One way 
is to use derived sets. The other, FOREACH statements, will be 

d i scussed I ater . 

Tl'iere are three forms of derived sets now implemented: the (') 
idcr i ved Get, the (0) derived set, and the (h) derived set, 

i tmexpl ' i tmexp2 

[Trnduces the net of all items X, such that 

i tmexpl X H i tmexp2 

is a triple cLirrcntly in the associative store, 

i tmexpl ® i tmexp2 

[Ji-oduces the set of all items Y such that, 

i tmexpl ® i tmexp2 s Y 

it. a trit:)le in the associative store. 

i tmexpl = i tmexp2 

IB 
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|:irafiucos tlio Get of all Items Y such that. 

Y ® 1 tmexpl 3 j tniexp2 

i n -i i i- 1 1') I n i n t I'll? assoc I at i ve store 

iJn<.' or ijoth of tlie item extriress i ons may be the token ANY. Again this 
hieatis U'lal iie do not care about the value of that component. Thus, 

I tmexpl ® ANY 

III I I yearch the associative store for all associations which have 
1 hiiexixl as ihelr attribute component, and will return the set of 

V ri I u !"- r.; 111 p n (' 1 1 1 s of such associations. 



IG 
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rXAMPLE -DERIVED SETS 

I.'- 1: lift i-ejircisHiit n faiiiihj tree using associations. We will have the 

d'-r:Eii-nd i tnrn PARENT and the sets HALE and FEhALE, as well as items 

roprcsGntinq nicrnbcrs of the family; JOE, TIM, TED, JOYCE, JANET, 

AL1[:L. and HARRIET. 

Thi! faiiiilial r-e I at i onshi ps are represented by a the following tree. 

rOf1 ALICE JOE JAN 



JOYCE TED Tin 



HARRIET 

TiHis, ti-ie parents of HARRIET are JOYCE and TIM; the parents of JOYCE 
and TED aro TDM and ALICE and so forth. 

llo can I !i'|;ii-c!f;Gnt this tree by making the following associations; 

HAKE PARENT HARRIET = JOYCE; 
riAk'E PARENT HARRIET = TIM; 

HAKE PARENT & JOYCE a TOH; 
MAKE PARENT ® JOYCE = ALICE; 

riAKE PARENT TED h ALICE; 
RAPE PARENT TED ^ TOfl; 

MAKE PARENT TIM = JOE; 
MAKE PARENT TIM = JAN; 

To kcej:) track of tl^ie sexes of the various people we have, the two sets 

MALE and FEMALE. 

MALE <- (TIM, TED, TOM, JOE}; 
FEMALE <- {JAN, JOYCE, ALICE}; 

NOTE: The above is merely one possible way we might represent the 
family tree," For example instead of the MALE and FEMALE sets, we 
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might havG acsoc i at i ons of the form: SEX ® person s MALE, where MALE 
is noil an i tGiii. One of the interesting difficulties in using LEAP is 
deciding hoi-i to represent a given system of data as LEAP will often 
a I I on many different ways of representing the same information. Some 
of the tradeoffs between the different representations will be 
d i ncuGGcd I ator. 



Now to use the structure we have built. Let us say that we wished to 
find the |:)ai"ent3 of Harriet. He may easily do this by use of a 
derived set. 

HARRIET_PARENTS ^ PARENTS ® HARRIET; 

iihcrc HARRIET_PARENTS has been declared to be a set variable. 

To find Harriot's brothers is a little more complicated. 
"find one parent" 
PARENT_ITnVR ^ COP(PARENTS HARRIET); 

"set of brothers, si sters" 
SIOLING_SET f- PARENT ' PARENTJTMVR; 

" bro tl'ier i s a ma I e s i b I i ng" 
DROTHER^SET f SIBLING_SET n MALES;' 

IIh:> alxive examijle illustrates the use of associations as binary 
i-n latinns holiinen i terns, in this case the relation "parent of". Often 
ijf: i-jir,|-i to ar.sonlatc nevcral different pieces of data with an item. 
To do thio NO mag declare items which will be used to name the data 
and liien allocate items which will contain the corresponding data for 
H;-i(,;.h i tohi. For ex-ample we may wish to record such various attributes 
til' a pernon sucli as weight, height, nickname. To do this we will have 
i tr:mr. NEIGIIT, HEIGHT, and NICKNAME which will be used to name the 
at ir i l:)utos. He will allocate items whose datums are the corresponding 
values. E.G. 

HAKE HEIGHT JOE a NEWdSS); 
HAKE HEIGHT ^^ JOE = NEW (70); 
HAKE NICKNAME ® JOE = NEU("JOEY"); 

Th'Mi i:o find the value of an attribute such as weight we would use 
tl If! ox|")i"es!3 i on: 

nATUM(INT_ITMVR ^ COP(WEIGHT«.JOE) ) 
r!oi(icml:)or that the assignment of the item to the integer i tmvr is 
i-f:".iLi i rod so that the compiler can tell what the data type of the 
I la i. am i s. 
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t'.ij usinci thef.o operations and set variables we have sufficient power 
to do airt) seai'ch on the associative data base. However one soon 
r-ealizoH Uiat they are very inconvenient to use in all but the most 
Miiiiplo caseo. Therefore another technique is provided called FOREACH 

;-, tritomentG. 

A f-ORLACII sta lenient is similar to a FOR statement in that it causes 
ihv^ iteration of a given SAIL statement to be performed with a 
control variable i-eceiving various values for each iteration. These 
values arc obtained by searching the associative data base or 
enumerating the members of a set of items. 

Tlie most simple FDREACH statement has a single "local" i temvar and a 
sinrile "associative context". A local itemvar serves the same purpose 
as the looj!) variable in a FOR statement. With each iteration it will 
receive an item value and a SAIL statement will be executed. A simple 
example of a FOR statement is: 

FOREACH X I BROTHER®BOYls X 00 
< s t m t > 



Tl'iis statement is equivalent to the following: 



I istx<- BROTHERc^BOY; 

FOR j ^ 1 step 1 until LENGTH (LISTX) DO 

BEGIN X^-l istxij]; 

< a t m t > 
END; 
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